home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amos / amossible / structures / subrout2.bak / subrout2.amosSourceCode
Encoding:
AMOS Source Code  |  1980-05-17  |  112 b   |  11 lines
  1. X=0
  2. MAIN:
  3. X=X+1
  4. If X>=100 Then Gosub SUBBIT
  5. Print At(0,0);X
  6. Wait 1
  7. Gosub MAIN
  8. SUBBIT:
  9. Print "X=100"
  10. Wait 50
  11. Edit